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摘 要 : 针对 岁入 式 应 用 领域 对 操作 系统 在 重 构 、 扩 展 、 移 植 、 交 互 、 安 全 、 高 效 等 方面 日 趋 芽 刻 的 现实 需求 及 Forth 
系统 所 固有 的 特性 ， 采 用 Forth 虚拟 机 技术 ， 对 基于 Forth 虚拟 机 架构 的 嵌入 式 操 作 系 统 关键 技术 进行 探索 ,提出 一 种 
具有 良好 扩展 和 移植 特性 、 高 效 精简 的 基于 Forth 虚拟 机 架构 的 座 入 式 多 任务 操作 系统 调度 算法 。 该 算法 采用 了 以 Forth 
虚拟 机 指令 同步 的 协同 式 多 任务 调度 机 制 ， 缩 短 了 任务 切换 时 间 ， 将 上 下 文 切 换 操作 简化 为 只 需 保存 数据 堆栈 指针 。 
实验 结果 表明 ， 基 于 Forth 虚拟 机 架构 的 多 任务 调度 算法 发 挥 了 Forth 系统 所 固有 的 特性 ， 针 对 特定 应 用 ， 提 高 了 效 
率 ， 适 合资 源 有 限 的 嵌入 式 环境 。 
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Design and implementation of multitask scheduling algorithm for 
embedded Forth virtual machine architecture 
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Abstract: In embedded application fields, the operating system presentes the more stern reality demand such as reconstruction, 
expansion, transplantation, interaction, security, and efficient. In combination with the above features of embedded system and 
inherent characteristics of Forth systems, using Forth virtual machine technology, this paper explored the key technologies of 
embedded operating system based on Forth virtual machine architecture, and proposed an embedded multitask operating system 
scheduling algorithm based on Forth virtual machine architecture, which had better extension and transplantation characteristics. 
The algorithm adopted a cooperative multi-task scheduling mechanism with Forth virtual machine instruction synchronization, 
shortened the task switching time, and simplified context switching operations to simply saving the data stack pointer. The 
experiment results demonstrate that the multitask scheduling algorithm based on Forth virtual machine architecture develops the 
inherent characteristics of Forth system, presents higher efficiency for specific applications, especially benefits for embedded 
environments with limited resources. 
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machine architecture,， FYM) 的 设计 思想 ,逐渐 形成 了 独树一帜 
的 基于 FVM 的 嵌入 式 多 任务 操作 系统 〈The embedded multi- 
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Forth 语言 本 身 就 是 一 种 过 程控 制 语言 和 一 种 快速 开发 环 task operating System based on the Forth virtual machine 
境 ， 而 不 仅仅 是 一 个 单纯 的 编程 工具 ， 具 有 很 强 的 交互 性 、 构 architecture，FVMOS ) 。 
造 性 、 移 植 性 和 自 扩展 能 力 ， 以 及 高 效 的 生成 代码 ， 甚 至 可 以 直 以 来 ， FVMOS 究竟 采用 何 种 多 任务 调度 策略 始终 是 
快速 构造 出 一 个 实时 多 任务 操作 系统 。 真 正 将 Forth 推 向 操作 ”Forth 界 长 期 争论 的 焦点 ， 以 至 于 在 先后 形成 的 FIG-Forth 、 


系统 领域 的 是 美国 Kitt Peak 天 文 台 开发 的 Stand Alone Forth-79、Forth-83、ANSIX3.215-1994、ISO/IEC 15145 :1997、 
Forth11t]， 随 后 出 现 的 Stand Alone Forth88C、ColorforthB]、 FORTH-2012 等 标准 中 均 未 出 现 相 关 的 内 容 。 与 直接 基于 CPU 
SwiftOSm 等 系统 也 基本 秉承 了 基于 Forth 虚拟 机 (Forth virtual 处 理 器 架构 的 多 任务 操作 系统 不 同 ，FVMOS 的 实现 有 其 独特 
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性 ， 若 引入 抢占 式 调度 ， 势 必 会 破坏 虚拟 机 的 硬件 抽象 ， 从 而 。” 任务 、 后 台 任 务 和 中 断 任务 三 种 任务 类 型 , 虽然 三 种 任务 的 TCB 
丧失 固有 的 重 构 、 扩 展 、 移 植 等 特性 。Stand Alone Forth88 采用 内 容 有 差异 ， 但 都 连接 到 多 任务 循环 链表 中 〈 右 虚线 ) 。 
的 就 是 抢占 式 调度 , 同时 具备 并 发 (仅仅 是 单一 的 终端 任务 )、 FVMOS 架构 应 当 在 Forth 核心 词典 和 主 控 循 环 Quit 之 上 ， 
定时 和 中 断 三 种 任务 类 型 ， 但 这 种 实时 性 保证 是 以 数 十 项 复杂 ”这 与 直接 在 寄存 器 处 理 器 上 架构 操作 系统 有 着 明显 的 差异 。 若 
的 CPU 现场 保护 与 恢复 以 及 丢失 重 构 、 扩展、 移植 等 特性 为 代 仅 考虑 单 核 Forth 虚拟 机 ， 其 可 选 的 实时 多 任务 操作 系统 实现 
价 的 。 此 外 ， 如 果 存 在 终端 任务 ， 这 种 中 断 驱 动 的 强制 调度 还 方式 为 : 利用 Forth 自身 的 特点 ， 直 接 用 汇编 、C 语言 或 Forth 
会 严重 干扰 和 打 乱 Forth 系统 特有 的 在 线 交 互 过 程 。 那 么 ， 究 自生 成 器 (可 异 构 ) 生 成 一 个 包含 Forth 虚拟 机 的 基本 系统 FBS 
竟 有 没有 一 种 既 能 发 挥 FVM 特性 又 能 兼顾 系统 的 实时 性 的 调 (forth basic system)， 也 就 是 stask (system task， 第 一 个 终端 
度 策 略 呢 ? 王 务 ), 之 后 在 其 上 定义 封装 : 内 存 管理 、 任 务 管 理 、 设 备 管理 、 
通过 对 FVM 指令 执行 过 程 的 分 析 ， 不 难看 出 ， 如 果 能 预 普 误 陷 井 等 FVMOS 原 语 构 件 。 若 存储 在 Flash 中 的 FBS 和 
先知 道 调度 时 刻 ， 并 且 能 把 调度 时 刻 精 确 控 制 在 FVM 每 次 晶 FVMOS 是 可 重 入 的 ， 那 么 新 创建 的 任务 Utask (user task) 只 
转 执行 下 一 条 Forth 指令 时 ， 即 与 FYM“ 心 跳 ” 频 率 同 步 , 便 。 在 RAM 用 户 变 量 区 中 建立 任务 数据 空间 (运行 在 一 个 Forth 虚 
能 破解 上 述 难题 ， 为 嵌入 式 领 域 的 许多 特定 应 用 提供 更 高 性 能 。” 拟 机 之 上 ， 适 合 于 多 核 SMP 模式 )， 否 则 就 需要 复制 stask 到 
的 解决 方案 , 正 因为 如 此 ,FVMOS 多 任务 调度 策略 已 成 为 Forth ” 新 的 Flash 和 RAM 工作 区 (运行 在 多 个 虚拟 机 之 上 , 适合 于 多 
领域 研究 的 热点 ， 其 中 最 具 代 表 性 的 是 Forth 公司 推出 的 。 核 AMP 模式 或 多 核 离散 模型 )。 同 时 ,初始 化 Utask 的 任务 控 
SwiftOS。SwiftOS 采用 非 抢占 式 策略 , 通过 信号 量 和 全 局 变量 症 块 TCB ， 并 将 新 的 TCB 插入 到 系统 的 TCB 链表 中 ， 进 入 多 
来 支持 进程 间 同 步 。 在 特有 的 交互 调试 方面 , 采用 Cross-Target 王 务 调度 。 
Link 来 支持 各 种 终端 调试 接口 。 在 手持 设备 的 应 用 实验 中 


SwiftOS 能 在 多 任务 调度 空 循环 的 一 个 周期 内 ， 通 过 修改 内 核 ren 用 me | 
将 设备 置 于 休眠 状态 ， 比 以 往 不 可 更 改 的 二 进 制 实时 内 核 节省 Www 
70% 的 耗 电量 四。 以 商用 的 SwiftOS 为 代表 ， 目 前 基于 FVM 的 i 
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FVMOSD Forth Virtual Machine OS 


协同 调度 算法 (cooperative scheduling algorithm, Round-Robin) 
已 逐渐 成 为 Forth 系统 的 主流 。 
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在 物 联网 浪潮 推动 下 ， 面 对 越 来 越 复杂 的 嵌入 式 应 用 需求 os 
以 及 当今 嵌入 式 操作 系统 研究 领域 亟待 解决 的 重 构 、 移 植 、 可 人 | || 人- 且 - 
信 、 多 核 众 核 等 诸多 难题 吕 ,FVMOS 再 次 进入 了 人 们 的 视野 。 ~ | 到 
与 直接 管理 CPU 资源 的 传统 操作 系统 相 比 , 作为 一 种 全 新 的 操 rw Fem eteat actine Seek, "en 


作 系 统 , FVMOS 在 体系 结构 、 原 理 机 制 、 调 度 策 略 上 都 存在 明 
显 的 不 同 ， 其 实时 性 尚 处 于 “ 粗 粒 度 ”水 平 ， 还 缺乏 必要 的 理 

论 研究 和 指导 。 本 文 在 主流 FVMOS 多 任务 调度 策略 研究 的 基 EE 
础 上 ， 在 确保 重 构 、 扩 展 、 移 植 、 交 互 等 固有 特性 的 前 提 下 EE 
以 提高 实时 性 的 算法 优化 为 目标 ， 充 分 挖掘 架构 在 堆栈 机 上 的 
独特 性 ， 提 出 一 种 高 效 精简 的 基于 Forth 虚拟 机 架构 的 嵌入 式 
多 任务 操作 系统 调 
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图 1 FVMOS 系统 结构 
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> 2 ”基于 FVM 的 任务 控制 块 
与 其 他 多 任务 调度 方式 不 同 ，FVMOS 的 协同 式 调 度 是 基 
FVMOS 系统 结构 如 图 1 所 示 。Flash 中 存放 在 FVM 上 运 ”于 虚拟 机 的 ， 支 持 终端 任务 、 后 台 任务 和 中 断 任务 三 种 任务 类 
行 的 Forth 代码 ，FBS 底层 是 Code 定义 ， 上 层 是 高 级 定义 ， 在 型 ， 在 上 述 内 存 管理 方式 下 ， 现 场 保 护 仅 需 要 将 当前 返回 栈 指 
其 之 上 是 由 高 级 定义 组 成 的 FVMOS。 由 FVMOS 可 以 创建 未 。 人 针 RP 压 入 数据 栈 , 并 将 当前 数据 栈 指针 SP 保存 到 该 任务 的 用 
属 stask 的 若干 用 户 任务 。RAM 中 有 若干 与 用 户 任务 相对 应 的 户 变量 区 里 。 而 恢复 现场 仅 需 要 从 该 任务 的 用 户 变量 区 里 恢复 
任务 控制 块 TCB、 返 回 栈 RS、 数 据 栈 DS 等 组 成 的 用 户 变 SP， 并 将 栈 顶 值 存 入 RP 指针 。FVMOS 的 任务 控制 块 (task 
区 ， 以 及 文本 输入 缓冲 区 TIB、 其 他 用 户 变量 区 和 普通 变量 controlblock，TCB ) 就 是 用 户 变量 区 里 与 多 任务 调度 有 关 的 一 

等 存储 项 。 逻 辑 上 ，FBS、FVMOS 都 可 以 进行 RAM 操作 ( 纪 块 特殊 区 域 ， 其 结构 如 表 1 所 示 。 
箭头 )， 但 物理 上 ， 系 统 的 存 取 操 作 被 封装 在 FBS 的 底层 Code TCB 表 中 每 一 项 都 是 通过 用 户 变量 USER 定义 的 , 其 中 基 
定义 中 ， 实 际 操 作 是 透 过 这 些 分 类 存 取 指 令 完成 的 〈 粗 箭头 )。 本 表 项 (前 六 项 ) 是 每 个 任务 的 必 备 项 ， 而 附加 表 项 是 专门 针 
与 抢占 式 Stand Alone Forth88 不 同 ， 协 同 式 FVMOS 支持 终端 对 终端 任务 而 设置 的 。 附加 表 项 (IO 驱动 ) 存放 的 是 该 终端 任 
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务 的 IO 驱动 向 量 ， 与 该 任务 具体 连接 的 终端 设备 有 关 ， 附 加 
表 项 〈 解 释 器 操作 ) 存放 的 是 该 终端 任务 文本 解释 器 与 状态 有 
关 的 操作 向 量 。 需 要 特别 指出 的 是 , TCB 没有 保留 返回 栈 指针 ， 
而 是 将 当前 返回 栈 指针 放 在 数据 栈 栈 项 。 


表 1 基于 FVM 的 TCB 
序号 偏 移 ”名称 描述 类 别 
1 0 status ”任务 状态 的 xt，UP 指针 
2 2 ”follower 下 一 个 任务 的 TCB 首 址 
3 4 rp0 返回 栈 栈 底 指针 
基本 表 项 
4 6 sp0 数据 栈 栈 底 指针 
5 8 sp 数据 栈 栈 顶 指针 (TOS) 
6 10 CATCHER 错误 陷阱 
T 1 句 量 定义 附加 表 项 (LO 驱动) 
| 附加 表 项 
Ma eo om 9 量 定 义 
(解释 器 操作 》 


3 ”基于 FVM 的 任务 调度 算法 及 实现 


下 面 重点 讨论 基于 FVM 的 多 任务 协同 式 调 度 算 法 ， 针 对 
Forth 语言 和 Forth 系统 的 特点 ， 算 法 描述 采用 了 Forth2012 标 
准 。 
3.1 


任务 调度 
通常 ， 轮 询 调度 算法 是 在 TCB 的 STATUS 单元 里 保存 任 
务 的 状态 ， ee WAKE 状态 的 任 
务 ， 但 在 基于 FVM 系统 中 ， 通 过 引入 Forth 向 量 字 PASS 和 
WAKE， 可 以 使 调度 算法 进 a 
转 。 这 时 ，TCB 里 的 STATUS 存储 的 就 不 再 是 任务 状态 ， 而 是 
可 随时 置换 的 PASS 和 WAKE 向 量 字 。 轮 询 调度 算法 如 下 : 
1 : MULTITASK-SCHEDULE 
2 RP@ /当前 返回 栈 指针 rp@〈 指 向 PAUSE 后 断 点 的 xts) 压 数据 栈 
3 SP@ /得 到 当前 数据 栈 指针 spe 
4 SP / 取 tcbe[sp] 地 址 
/将 当前 数据 栈 指针 保存 到 当前 任务 的 tcbe[sp] 
tcbe[follower] 地 址 


T 


5 |! 


6 ”FOLLOWER /得 至 
7 @ /得 到 下 一 个 任务 的 tcb1 
8 DUP @ /得 到 下 一 个 任务 的 status1 (xts) 


9 I-CELL+ /得 到 下 一 个 任务 statusl 里 pass 或 wake 过 程 的 pfa 
/将 下 一 任务 status1 里 pass 或 wake 的 pfa 压 入 返回 


16 >R ; 
栈 

>R 之 后 ，FVM 虚拟 机 开始 跳 转 去 执行 PASS 或 WAKE， 
当 退 出 MULTITASK-SCHEDULE 时 ，FVM 又 开始 返回 到 
PAUSE 后 面 的 第 一 个 字 。 
3.2 PASS 和 WAKE 过程 

若是 PASS, rp" 和 tcb! 仍 在 数据 栈 里 。 PASS 过 程 将 不 断 循 
环 ， 跳 过 处 于 PASS 状态 的 任务 ， 直 到 找到 WAKE 为 止 。 具体 
过 程 如 图 2 所 示 。PASS 过 程 定义 算法 如 下 : 


代 红 兵 ， 等 : 嵌入 式 Forth pp nip 多 任务 和 印信 其 有 

1 / rpe tcbl -- n: 多 任务 循环 链表 里 处 于 PASS 状态 的 任务 数 

2 :NONAME 

3 CELL+ /得 到 存 有 第 n 个 任务 followern 的 地 址 

4 @ /得 到 第 n+1 个 任务 的 tcb n+1 

5 DUP 

6 @ /得 到 第 n+1 个 任务 的 status n+1 (xts) 

7 I-CELL+ /得 到 第 n+1 个 任务 status n+1 里 PASS 或 WAKE 过 程 的 

pfa 

8 >R ; /将 第 n+1 个 任务 status n+1 里 PASS 或 WAKE 的 pfa 压 

入 返回 栈 

9 CONSTANT PASS /把 无 名 定义 的 xts 存在 PASS 常数 里 ， PASS 执 

/ 行 上 述 无 名 定义 

若是 WAKE，rp" 和 tcb™ 仍 在 数据 栈 里 。WAKE 过 程 将 恢 

复 处 于 WAKE 状态 任务 的 数据 栈 和 返回 栈 ， 并 由 FVM 实现 跳 
转 。WAKE 过 程 定义 算法 如 下 : 

1 / rpe tcbm -- m; 扫描 多 任务 循环 链表 时 处 于 wake 状态 的 第 一 

个 任务 

2 :NONAME 

3 UP! / 将 用 户 变 量 区 指针 指向 第 m 个 任务 CNAKE 状态 ) 的 tcbm 

4 SP / 获取 第 m 个 任务 的 tcbm[sp] 地 址 ， 此 时 数据 栈 己 切换 到 第 

m 个 


/ 任务 的 数据 栈 ， 每 个 任务 的 数据 栈 的 栈 项 都 存 有 该 


5@ / 
6 SP! 


7 RP! ; 


8 CONSTANT WAKE / 


得 到 第 m 个 任务 数据 栈 指针 spm 


/ 激活 第 m 个 任务 的 数据 栈 


/ 激活 第 m 个 任务 的 返回 栈 


到 2 PASS 和 WAKE 过 程 


3.3 ”任务 控制 


多 任务 调度 器 PAUSE 可 以 1 
关 , SINGLE 将 多 任 
调度 ， 仅 保留 一 
指向 MULTITASK-SCHEDULE， 启 动 多 但 


务 调度 器 PAUSE 设 为 空 操 


MULTI 定义 、 任 务 状态 控制 算法 如 下 : 


1 : SINGLE 


巴 无 名 定义 的 xts 存在 WAKE 常数 里 ， 
/ WAKE 执行 上 述 无 名 定义 


SINGLE 和 MULTI 定义 来 开 


任务 的 rpm 


作 , 关闭 多 任务 


个 终端 任务 ，MULII 将 多 任务 调度 器 PAUSE 
E 务 调度 。 


SINGLE、 
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2 ['] NOOP IS PAUSE ; / 将 PAUSE 设 为 空 操作 ， 仅 保留 一 个 终端 


任务 
3 : MULTI 
4 [中 MULTITASK- 


MULTITASK-SCHEDULE 


5 


6 


7 


8 


9 


: TASK-STOP 


SCHEDULE IS PAUSE ; / 将 PAUSE 指向 


PASS STATUS ! PAUSE ; / 进入 多 任务 调度 ， 即 刻 停止 当前 任务 


: TASK-SLEEP 
PASS SWAP ! ; 


: TASK-WNAK 


16 WAKE SWAP ! ; 


在 多 任务 系统 


对 每 个 任务 进行 定义 。 


为 当前 tcb 所 指向 牺 


1 


2 


3 


4 


5 


6 


7 


/ tcb -- 
: ACTIVATE 


DUP 


/ 在 下 一 次 多 任务 循环 中 让 tcb 任务 休眠 


/ 在 下 一 次 多 任务 循环 中 唤醒 tcb 任务 


启动 之 前 ， 在 任务 创建 和 初始 化 之 后 ， 需 要 


ACTIVATE 把 紧 随 其 后 的 Forth 命令 设 
务 的 任务 体 ， 其 定义 算法 如 下 : 


6 +@CELL- / 得 到 tcb 任务 准备 压 入 第 一 个 数据 的 数据 栈 指针 


OVER 


4 + @ CELL- / 得 到 tcb 任务 准备 压 入 第 一 个 数据 的 返回 栈 指针 


R> OVER 工 -CELL+ 


务 的 返回 栈 
OVER ! / 将 rp 压 入 数据 栈 ， 为 WAKE 过 程 做 准备 
OVER 8 + ! / 将 数据 栈 指针 保存 到 tcb [sp] 

16 TASK-NAKE ; 
以 定义 在 主任 务 中 的 SCAN 为 例 ， 如 图 3 所 示 ， 当 主任 务 
执行 时 ，ACTIVATE 将 后 面 的 BEGIN..…...AGAIN 循环 定义 为 


8 


9 


tcb 所 指 任务 的 任务 体 ， 而 不 是 去 执行 这 个 循环 。 只 有 当 tcb 指 
向 的 任务 (从 任务 ) 执行 时 ， 才 去 执行 这 个 循环 〈 任 务 体 )。 
此 可 见 ，SCAN 定义 被 隐形 的 分 解 为 主任 务 和 从 任务 执行 的 两 


个 部 分 。 


! / 将 ACTIVATE 后 的 断 点 压 入 tcb 对 应 任 
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即使 在 资源 有 限 的 嵌入 式 系统 环境 下 , Forth 系统 依然 保留 了 这 
一 优势 特点 ， 并 赋予 每 个 终端 任务 不 同 的 工作 内 容 。 
与 后 台 任 务 相 比 ， 终 端 任务 为 支持 串口 和 解释 器 工作 ， 可 
以 在 每 个 任务 的 用 户 变 量 区 里 附加 更 多 的 操作 信息 ， 如 果 目 标 
系统 里 有 一 个 解释 器 ， 那 么 其 对 应 的 终端 任务 就 需要 依据 不 同 
的 串口 硬件 ， 在 用 户 变量 区 里 建立 终端 任务 的 IO 驱动 和 与 文 
本 解释 器 输入 缓冲 区 有 关 的 操作 。 

终端 任务 的 创建 与 后 台 任 务 基本 相同 ， 都 是 调用 TASK 过 
程 , 所 不 同 的 是 申请 追加 分 配 的 用 户 变 量 区 可 以 包含 附加 的 IO 
驱动 向 量 、 解 释 器 输入 流 操作 向 量 ， 以 及 输入 流 缓冲 区 。 终 端 
任务 的 初始 化 除 完成 TASK-INIT 过 程 外 , 还 需要 针对 不 同 的 终 
端 类 型 , 填写 或 置换 字符 、 回 车 、 光 标 等 公共 操作 的 执行 向 量 。 
需要 说 明 的 是 ， 系 统 上 电 时 ， 核 心 系统 缺 省 就 已 经 包含 了 一 个 
终端 任务 ， 此 时 多 任务 循环 链表 里 只 用 一 个 任务 指向 该 任务 
身 的 TCB。 
3.6 中断 任务 

与 抢占 式 的 强 实时 OS 不 同 ， 为 减少 开销 ， 同 时 兼顾 到 性 
能 ,基于 FVM 的 多 任务 调度 并 不 直接 使 用 中 断 进行 任务 切换 ， 
而 是 依然 将 任务 切换 放 在 Forth 定义 之 间 。 中 断 发 生 时 ， 如 果 
有 对 应 的 中 断 任务 ， 待 处 理 完 中 断 事 务 后 ， 中 断 服务 程序 将 执 
行 与 TASK-WAKE 类 似 的 操作 ， 使 该 任务 在 下 一 次 调度 
(CPAUSE) 中 启动 运行 ， 如 图 4 所 示 。 由 此 可 见 ， 这 种 中 断 事 
件 驱 动 方 式 是 一 种 弱 实时 ， 要 经 历 若干 可 预见 的 Forth 定义 才 
能 获得 响应 ， 但 由 此 换 来 的 是 系统 简单 、 良 好 性 能 的 保证 ， 不 
论 中 断 何 时 发 生 ， 启 动 中 断 任务 的 时 刻 是 可 以 预知 的 ， 只 能 发 
生 在 有 PAUSE 语句 的 地 方 。 在 这 种 方式 下 , 中 断 任务 的 创建 和 


主任 务 执行 


从 任务 执行 


: SCAN (tcb --- ) ACTIVATE 


BEGIN ( process...... ) 
AGAIN ; 


图 3 ACTIVATE 过 程 


后 台 任务 适用 于 不 需要 连续 串 行 O、 不 需要 连接 终端 , 其 


至 不 需要 解释 /编译 器 的 场合 ， 其 任务 创建 、 初 始 化 、 控 制 等 与 
TASK、TASK-INIT、ACTIVATE 、ADD-NEXTTASK 等 过 程 相 


同 。 
3.5 


因为 如 此 ,上 


终端 任务 


Forth 系统 是 一 种 独特 的 “编译 /解释 ” 双 态 系统 ,支持 终端 
交互 式 操 作 ， 为 在 线 天 


F 发、 调试 、 更 新 、 修 改 带 来 了 便利 。 正 


已 期 小 型 机 Forth 系统 (如 PDP-11 Stand Alone Forth- 


11) 中 支持 多 个 终端 用 户 和 多 个 终端 任务 的 特性 也 被 继承 下 来 ， 


初始 化 与 后 台 任务 相同 ， 其 使 用 具有 较 大 的 灵活 性 。 


” Interupt Sevice 


PASS -- WAKE 


TCBD STATUS 


PAUSE wnterrupt TASK | 
LA 


: | Start 
< 


图 4 中 断 调度 过 程 


一 般 来 说 ， 除 了 特殊 的 周期 性 定时 任务 ， 中 断 任务 往往 都 
需要 在 每 次 中 断 发 生 时 从 头 至 尾 一 次 完成 (没有 PAUSE 过 程 )， 
而 非 断 点 处 运行 。 此 外 ， 若 要 提升 系统 的 实时 性 ， 人 允许 存在 多 
个 优先 级 的 中 断 任务 ， 并 且 具 有 抢占 性 ， 那 么 就 需要 对 上 述 的 
多 任务 组 织 、 调 度 进行 改进 。 解 决 方案 之 一 就 是 在 协同 多 任务 
循环 链表 之 外 ， 再 构建 一 个 抢占 多 任务 链表 〈 中 断 任 务 链表 )， 
在 STATUS、FOLLOWER 基础 上 增加 中 断 号 CINTNO) 和 优 
先 级 (PRIORITY ) 等 TCB 表 项 。 同时, 使 用 与 PAUSE、 PASS、 
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WAKE 等 类 似 的 过 程 ， 去 搜索 处 于 唤醒 状态 优先 级 更 高 的 任务 ， 


_ SRT =》>”(TSi+TS7) 0) 
并 通过 WAKE 过 程 启动 中 断 任务 。 2 
其 中 : 75i 为 各 任务 时 间 片 ; 787 为 任务 切换 时 间 ; N 为 并 发 


4 ”实验 评估 


任务 数 。 若 采用 带 优先 级 的 算法 ， 并 且 


各 任务 的 时 间 片 与 优先 
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在 Arduino 艇 入 式 人 硬件 平台 上 ,借助 开源 的 Forth 虚拟 机 ， 
实现 了 上 述 算 法 ， 并 设计 了 一 个 含有 终端 任务 、 后 台 任 务 和 中 
断 任务 等 三 种 任务 类 型 的 多 任务 应 用 程序 ,实验 代码 如 下 所 示 : 


级 成 正比 ， 则 


SRT =TSminx MY (Pi+D)+NxTST 0O) 


1 :Ms(n-- )pPAUsE 6?D0 1MS LOOP ; /每 隔 n 毫 秒 调 其 中 : M 为 比例 因子 ，TSmin 为 最 小 时 间 片 ，Pi 为 各 任务 优先 
PAUSE 进行 等 待 级 。 当 Pi 取 值 0~N-1 且 M=1 时 ， 则 


2 VARIBLE M / TASK1 中 TASK2 使 用 的 全 局 变量 M (N+1) 


SRT =TSmint H+D NxTST 
的 全 局 变量 N 


G3) 


3 VARIBLE N / TASK1 中 TASK3 使 


为 保证 最 小 时 间 片 时 ， 系 统 最 大 开销 不 超过 5%， 设 TST/ 
TSmin = 0.05， 则 


4 :INIT(-- )eM!EON!; 


5 $46 $46 8 BACKGROUND-TASK TASK2 / 建立 后 台 任务 TASK2， 


在 FLASH SRT =Nx(ON+LIDx797 (4) 
/ 中 创建 任务 头 ， 分 配 用 户 变量 区 若 不 考虑 优先 级 调度 ， 即 Pi=0、7Si =7TS ， 上 述 算法 就 退 
6 : TASK2-BODY ( -- ) BEGIN 1 M +! &16 MS AGAIN ; / 定义 化 为 相等 时 间 片 轮转 调度 ， 则 


TASK2 任务 体 


7 $46 $48 8 INTERRUPT-TASK TASK3 / 建立 中 断 任务 TASK3， 在 


SRT = N(TS +TST) (5) 
同样 ,为 保证 系统 平均 开销 不 超过 1%, 设 TST /TS = 0.01， 


FLASH 中 则 
/ 创建 任务 头 ， 分 配 用 户 变量 区 SRT =10lx NxTST (6) 
8 : TASK3-BODY ( -- ) BEGIN 1 N +! TASK-STOP AGAIN ;/ 定 本 文 所 述 算法 的 系统 响应 时 间 可 用 式 (6) 来 近似 表示 ,所 


不 同 的 是 基于 FVM 的 任务 切换 要 比 基 于 CPU 的 快 很 多 ， 仅 仅 
只 需 保留 或 恢复 SP 指针 就 能 实现 。 与 文献 2] 的 Stand Alone 
Forth88 并 发 任务 调度 相 比 ， 基 于 FVM 的 任务 切换 代码 (机 器 
码 ) 规模 只 有 其 110， 因 此 ， 同 等 开销 下 ， 系 统 响应 时 间 缩 短 


义 TASK3 任务 体 


9 : STARTTASKER ( -- ) / 初始 化 并 启动 多 任务 


/ TASK2 初始 化 ,在 RAM 中 创建 TCB2 


186 TASK2 BACKGROUND-INIT 


11 TASK3 INTERRUPT-INIT / TASK3 初始 化 ， 在 RAM 中 创建 TCB3 


12 TASK2 TIB>TCB ACTIVATE TASK2-BODY / 连接 TASK2 任务 体 为 

13 TASK3 TIB>TCB ACTIVATE TASK2-BODY / 连接 TASK3 任务 体 SRT =10.1xNxTST (7) 

14 ADD-FIRSTTASK / 建立 TCB1 循环 链表 

15 TASK2 TIB>TCB ADD-NEXTTASK / 将 TCB2 加 入 循环 链表 si 基于 CPU 优先 胡 调 度 Wn 

16 TASK3 TIB>TCB ADD-NEXTTASK / 将 TCB3 加 入 循环 链表 | 本 A f | 

17 MULTI ; / 启动 多 任务 中 大 | 

18 : TASK-TURNKEY ( -- ) / 上 电 启 动向 量 | 人 | 

19 APPLTURNKEY INIT STARTTASKER ; el . | 

在 第 一 个 终端 任务 TASK1 (STASK) 里 定义 后 台 任务 cl Ye | 

TASK2 和 中 断 任务 TASK3。 多 任务 启动 后 ，TASKI 在 TASK2 路 sl 人 
任务 体 每 次 调用 MS 时 执行 一 次 ， 平 均 间 隔 10 ms; TASK2 在 十 子 
TASK1 每 次 等 待 键盘 输入 时 执行 ，TASK3 一 直 处 于 休眠 状态 SR | 
CPASS)， 直 到 有 对 应 的 中 断 发 生 ， 状 态 变 为 唤醒 (WAKE)， OE 5 5 要 的 
在 距离 最 近 的 PAUSE 处 开始 执行 《这 段 距 离 就 是 中 断 延迟 )， 

一 A 妈 5 三 种 调度 方式 的 系统 响应 时 间 
执行 后 再 次 进入 休眠 状态 。 实 验 表 明 ， 系 统 运行 稳定 可 靠 ， 在 
有 具备 高 效 的 在 线 交 互 和 后 台 处 理 能 力 的 同时 ， 有 具备 一 定 的 实时 基于 CPU 的 优先 级 和 固定 时 间 片 调度 以 及 基于 FVM 协同 
处 理 能 力 。 协 同 式 的 特点 简化 了 任务 间 繁 琐 的 资源 互 斥 访问 机 式 调度 的 系统 响应 时 间 如 图 5 所 示 。 可 见 ， 本 文 提出 的 基于 


FVM 的 调度 算法 , 当 任 务 数 递 增 时 (可 为 后 台 或 中 断 任务 类 型 )， 
任务 切换 和 在 线 交 互 无 明显 的 延迟 。 此 外 ， 每 个 任务 的 时 间 片 
大 小 都 可 由 用 户 依 据 应 用 需求 灵活 决定 ， 既 可 以 调整 任务 体 大 
小 ， 又 可 以 在 各 自任 务 体内 通过 增加 或 减少 PAUSE 改变 调度 


制 ， 通 过 TASK1 终端 任务 ， 可 以 随时 跟踪 到 M、N 及 各 任务 
TCB 的 变化 。 
在 时 间 片 轮转 调度 系统 中 ， 系 统 响应 时 间 一 般 可 表示 为 
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用 户 自行 设计 。 


5 ”结束 语 


现在 主流 的 FVMOS 的 多 任务 调 / 


的 精细 “粒度 ” 而 不 必 遵 循 系统 的 预定 设置 , 即 SRT 完全 可 以 


:采用 的 是 协同 式 1 


Bees 


度 器 (cooperative scheme，Round-Robin )， 也 就 是 说 每 个 任务 


的 启动 时 间 都 是 预先 确定 好 的 。 
很 强 ， 但 若 引 入 FYMOS， 势 必 会 影 | 


尽管 抢占 式 多 任务 系统 实时 性 
向 到 在 线 交 互 终端 任务 的 


及 时 响应 和 有 序 执行 ， 而 在 线 交 互 又 是 Forth 界 长 期 引 以 为 豪 


而 不 表 放 弃 的 特性 。 实 际 上 ， 两 者 的 


与 嵌入 式 应 用 环境 有 


关 。 研 究 表明 ， 骨 入 式 系统 往往 有 非常 重 的 CPU 负载 ， 而 抢占 


式 调度 器 的 开销 将 明显 高 于 
个 负载 非常 重 的 系统 中 ， 协 
蛋 度 器 更 高 。FVMOS 虽然 只 是 
但 依然 可 以 借助 Forth 灵活 简 
炸弹 处 理 机 全 5 
运行 了 12 个 任务 ， 在 其 他 复杂 应 用 领 


i 


处 理 。 据 报道 ， 一 台 四 向 


任务 的 应 用 报道 


与 传统 OS 的 多 任务 调度 算法 不 同 ， 


司 式 调度 器 ， 在 一 
简单 性 和 性 能 比 抢占 式 


的 协同 式 调度 器 ， 
对 实时 事件 作出 快速 


示 准 的 协同 式 调度 器 


或 甚至 还 有 多 达 400 个 


基于 FVM 的 调度 代码 


都 是 Forth 高 级 定义 ， 没 有 涉及 CPU 的 任何 细节 ， 通 过 FVM 


的 抽象 做 到 了 与 硬件 无 关 ， 平 


之 间 的 移植 可 以 不 必 更 改 一 行 


代码 , 从 而 使 系统 天 然 具 备 了 可 习 


秉承 Forth 思想 ,“ 不 满意 就 去 修改 它 ”， 


E 构 、 可 扩展 、 可 移植 的 特性 。 
为 进一步 提高 系统 的 


实时 性 ， 这 种 框架 和 算法 的 改进 可 以 不 断 进行 下 去 。 例 如 ， 中 


断 任务 的 上 下 文 切换 时 间 可 以 从 外 
序 退 出 之 时 ， 但 这 样 做 所 带 来 的 复杂 怕 


民 


研究 和 评估 。 


参考 文献 : 


E 务 体 层 级 下 降 到 中 断 服务 程 
F 销 还 需要 进一步 的 


[1] McGuire TE. Kitt peak multi-tasking FORTH-11 [J]. The Journal of Forth 


Application and Reseach, 1984, 2 (2): 57-67. 


代 红 兵 ， 等 : 噬 入 式 Forth 虚拟 机 架构 的 


代 红 兵 . 高 效 微机 实时 多 任务 操作 系统 设计 与 实现 [J]. 中 国 科学 院 研 
完 生 院 学 报 , 1993, 10 (3): 283-292. 

Moore C. colorForth [EB/OL]. (2009) . https://colorforth. github. io/cf htm. 
Forth Inc. SwiftX cross compilers for embedded systems applications 
[EB/OL]. (2016) . https://www. forth. com/embedded/. 

杨 霞 . 高 可 信 谋 入 式 操作 系统 体系 架构 研究 [D]. 成 都 : 电子 科技 大 学 ， 
2010. 

Pelc S. Programming Forth [M]. Southampton: MicroProcessor Engineering 
Limited, 2011: 97. 

代 红 兵 , 杨 为 民 , 王 丽 清 , 等 . 多 目标 Forth 自生 成 器 的 研究 与 实现 [J]. 
计算 机 应 用 研究 , 2014, 31 (4): 1109-1114. 

杨 为 民 ， 代 红 兵 ， 安 红 萍 ,等 . 一 种 新 的 嵌入 式 Forth 实时 操作 系统 的 
研究 [中 . 云南 大 学 学 报 : 自然 科学 版 , 2013 (S2): 96-103. 

Frenger P Forth and AI revisited: BRAIN. FORTH [J]. ACM SIGPLAN 


Notices, 2004, 39 (12): 11-16. 


10] 代 红 兵 . 新 型 高 效 微机 Forth 语言 的 研制 [四 . 中 国 科 学 院 研究 生 院 


学 报 , 1993, 10 (1): 62-69 


11] FORTH Inc. Featured forth applications [EB/OL]. (2009) . http://www. forth. 


com/resources/app Notes. 


12] IntellaSys, A TPL Group Enterprise. SEAforth 40C18 scalable embedded 


13 


14 


15 


16 


array processor [EB/OL]. (2008) . http://www. intellasys. net/templates/trial/ 
content/SEK 40C18 DataSheet 1. 1. pdf 

Ieee B E. IEEE standard for boot (initialization configuration) firmware: bus 
supplement for IEEE 896 (futurebus+) [S]. 2002: 1. 

The Forth Interest Group. Forth compilers page [EB/OL]. (2009) . 
http://www. forth. org/compilers. html. 


Miller F P Colorforth [M]. 2010: 28. 


Hanna D M, Jones B, Lorenz L, et al. An embedded Forth core with floating 
point and branch prediction [C]/ Proc of IEEE, International Midwest 


Symposium on Circuits and Systems. 2013: 1055-1058. 


